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-- file Pass4S.Mesa 

-- last modified by Satterthwaite, July 31, 1978 9:30 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
ComData: FROM "comdata", 
ControlDefs: FROM "controldefs", 
ErrorDefs: FROM "errordef s" , 
LitDefs: FROM "litdefs", 
P4Defs: FROM "p4defs", 
Pass4: FROM "pass4", 
SymDefs: FROM "symdefs", 
SymTabDefs: FROM "symtabdef s" , 
TableDefs: FROM "tabledefs", 
TreeDefs: FROM "treedefs"; 

Pass4S: PROGRAM 
IMPORTS 

ErrorDefs, LitDefs, P4Defs, SymTabDefs, TreeDefs, 
dataPtr: ComData, passPtr: Pass4 
EXPORTS P4Defs - 
BEGIN 
OPEN TreeDefs, SymTabDefs, SymDefs; 

tb: TableDefs. TableBase; -- tree base address (local copy) 

seb: TableDefs. TableBase; -- se table base address (local copy) 

ctxb: TableDefs. TableBase; -- ctx table base address (local copy) 

bb: TableDefs. TableBase; -- body table base (local copy) 

StmtNotify: PUBLIC TableDefs. TableNotif ier » 

BEGIN -- called by allocator whenever table area is repacked 

tb <- base[treetype]; 

seb «- base[setype]; ctxb «- base[ctxtype]; bb «- base[bodytype]; RETURN 

END; 

WordLength: CARDINAL = Al toDef s.wordlength; 
Repr: TYPE = P4Defs.Repr; 
none: Repr « P4Defs.none; 

-- bodies and blocks 

frameBase, frameBound: CARDINAL; 

CatchFrameBase: CARDINAL = (ControlDefs . local base+l)*WordLength; 

catchFrameBound: CARDINAL; 

BodyList: PUBLIC PROCEDURE [firstBti: BTIndex] - 
BEGIN 

bti: BTIndex; 

IF (bti «- firstBti) # BTNull 
THEN 
DO 
WITH (bb+bti) SELECT FROM 

Callable => Body[LOOPHOLE[bti , CBTIndex]]; 
ENDCASE => BodyList[(bb+bti).firstSon]; 
IF (bb+bti). link. which » parent THEN EXIT; 
bti <- (bb+bti ). 1 ink. index; 
ENDLOOP; 
RETURN 
END; 

Body: PROCEDURE [bti: CBTIndex] « 
BEGIN 

oldBodylndex: CBTIndex - dataPtr. bodylndex; 
savelndex: CARDINAL = dataPtr. textlndex; 
saveBase: CARDINAL « frameBase; 
saveBound: CARDINAL = frameBound; 
saveCatchBound: CARDINAL ■ catchFrameBound; 
saveRecord: recordCSEIndex ■ passPtr.returnRecord; 
node: Treelndex; 
sei: CSEIndex; 
initTree: TreeLink; 
n: CARDINAL; 

dataPtr. bodylndex <- bti; 
WITH (bb+bti). info SELECT FROM 

Internal ■> BEGIN node «- bodyTree; dataPtr. textlndex <- sourcelndex END; 
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ENDCASE »> ERROR; 
sei «- UnderType[(bb+bti) . ioType]; 
passPtr.returnRecord ♦• TransferTypes[sei] . typeOut; 
catchFrameBound «- CatchFrameBase + WordLength; 
[] «- LitDefs.ResetLocalStrings[]; 
IF (tb+node) . son4 # empty 
THEN 
BEGIN 

(tb+node) .son4 «- P4Def s .Exp[(tb+node) .son4, none]; P4Def s.VPop[]; 
END; 
(tb+node) .sonl <- update! ist[(tb+node) .sonl , Openltem]; 
scan! ist[( tb+node) .son 2, P4Def s.Decl Item]; 
IF ~dataPtr .def initionsOnly 
THEN 

frameBase «- SELECT (bb+bti) .level FROM 
16 ■> P4Defs.LayoutGlobals[bti], 
ENDCASE <=»> P4Defs.LayoutLocals[bti] 
ELSE 
BEGIN 

n <- P4Defs.LayoutInterface[bti]; frameBase *- 0; 
WITH (seb+sei) SELECT FROM 
definition a > 
nGfi *- IF n = 
THEN 1 

ELSE LOOPHOLE[n-l, CARDINAL]/ControlDef s .EPRange + 1; 
ENDCASE ■> [] <- P4Defs.LayoutLocals[bti]; 
END; 
initTree <- empty; 
SELECT (bb+bti). level FROM 
1G => 

IF dataPtr. monitored AND (tb+passPtr . lockNode) .attrl 
THEN 
BEGIN 

ml push[(tb+passPtr . lockNode) .son2]; 

pushlittree[LitDefs.FindLiteral[100000B]]; pushtree[cast, 1]; 
setinfo[dataPtr.typeLOCK]; 

pushtree[assign, 2]; setattr[l f FALSE]; initTree <- mlpop[]; 
END; 
ENDCASE »> 

IF (bb+bti). firstSon # BTNull 
THEN 
BEGIN 

frameBase <- P4Defs . AssignLocalDescriptors[(bb+bti) .firstSon, frameBase]; 
initTree <- BodyInitList[(bb+bti) .firstSon]; 
END; 
frameBound <- frameBase; 

(tb+node) . son3 <- update! ist[( tb+node) . son3, Stmt]; 
WITH (bb+bti). info SELECT FROM 
Internal s > 
BEGIN 

frameSize *- (frameBound + (WordLength-1)) / WordLength; 
stOrigin <- LitDef s .ResetLocalStrings[]; 
END; 
ENDCASE; 
IF (bb+bti). firstSon # BTNull 

THEN BodyList[( bb+bti). firstSon] 

ELSE (tb+node) . sonl <- reverseupdatel ist[(tb+node) .sonl , Closeltem]; 
(tb+node) ,son2 <- update! ist[(tb+node) . son2, P4Def s.DeclUpdate]; 
IF initTree # empty 
THEN 

BEGIN ml push[initTree]; 
IF (tb+node) . son2 # empty 

THEN BEGIN ml push[( tb+node) . son2] ; pushlist[2] END; 
(tb+node) . son2 <- mlpop[]; 
END; 
frameBase <- saveBase; frameBound *- saveBound; 
catchFrameBound *- saveCatchBound; 

dataPtr.bodylndex <- oldBodylndex; dataPtr. textlndex <- savelndex; 
passPtr.returnRecord «- saveRecord; RETURN 
END; 

BodylnitList: PROCEDURE [firstBti: BTIndex] RETURNS [TreeLink] - 
BEGIN 

bti: BTIndex; 
n: CARDINAL; 

n «- 0; 



Pass4S.mesa 2-Sep-78 12:59:59 Page 



IF (bti 4- firstBti) # BTNull 
THEN 
DO 

WITH (bb+bti) SELECT FROM 
Callable -> 

BEGIN pushtree[procinit, 0]; setinfo[bti] ; n <- n+1 END; 
ENDCASE «> NULL; 
IF (bb+bti). link. which « parent THEN EXIT; 
bti <- (bb+bti). link. index; 
ENDLOOP; 
RETURN [makelist[n]] 
END; 

Block: PROCEDURE [node: Treelndex] RETURNS [TreeLink] ■ 
BEGIN OPEN (tb+node); 
initTree: TreeLink; 
bti: BTIndex * info; 
saveBase: CARDINAL ■ frameBase; 
saveBound: CARDINAL « frameBound; 
savelndex: CARDINAL = dataPtr. textlndex; 
WITH (bb+bti). info SELECT FROM 

Internal => dataPtr .textlndex *- sourcelndex; 
ENDCASE; 
scan! ist[( tb+node) .sonl, P4Defs. Dec! Item]; 
frameBase <- P4Def s.LayoutBlock[bti , frameBase]; 
initTree <- empty; 

IF (bb+bti). level # 1G AND (bb+bti) .firstSon # BTNull 
THEN 
BEGIN 

frameBase «- P4Defs . AssignLocalDescriptors[(bb+bti) .firstSon, frameBase]; 
initTree «- Bodylni tList[(bb+bti) .firstSon]; 
END; 
frameBound <- frameBase; 

(tb+node) .son2 <- update! ist[(tb+node) .son2, Stmt]; 
WITH (bb+bti). info SELECT FROM 

Internal => frameSize «- (frameBound + (WordLength-1)) / WordLength; 
ENDCASE; 
(tb+node) .sonl *- update! ist[(tb+node) . sonl, P4Def s.DeclUpdate]; 
IF initTree # empty 
THEN 

BEGIN ml push[ initTree]; 
IF (tb+node) . sonl # empty 

THEN BEGIN mlpush[( tb+node) . sonl] ; pushlist[2] END; 
(tb+node) . sonl «- mlpop[]; 
END; 
frameBase <- saveBase; frameBound ♦■ MAX [frameBound, saveBound]; 
dataPtr. textlndex <- savelndex; 
RETURN [TreeLink[subtree[index: node]]] 
END; 

-- main dispatch 

Stmt: PROCEDURE [stmt: TreeLink] RETURNS [val : TreeLink] « 
BEGIN 

node: Treelndex; 

savelndex: CARDINAL - dataPtr. textlndex; 
val <- stmt; -- the default case 
WITH stmt SELECT FROM 
subtree s > 

BEGIN node <- index; 
IF node # nullTreelndex 
THEN 

BEGIN OPEN (tb+node); 
dataPtr. textlndex <- info; 
SELECT name FROM 
assign «> 

BEGIN val <- P4Defs.Assignment[node]; P4Def s.VPop[] END; 
extract «> Extract[node]; 

call, portcall, signal, error, xerror, start, join ■> 
BEGIN val <- P4Defs.Call[node]; P4Def s.VPop[] END; 
block »> val ♦- Block[node]; 
ifstmt -> val «- IfStmt[node]; 
casestmt «> val «- CaseDriver[node, Stmt]; 
bindstmt -> val <- Binding[node, casestmt, BindStmt]; 
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dostmt ■> val <- DoStmt[node]; 
return ■> 

sonl *- P4Defs.MakeArgRecord[passPtr.returnRecord, sonl]; 
label -> 

BEGIN 

sonl «- Stmt[sonl]; 

son2 <- updatel ist[son2, Stmt]; 

END; 
goto, exit, loop, nullstmt ■> NULL; 
restart ■> 

BEGIN 

sonl <- P4Def s ,NeutralExp[sonl]; 

IF nsons > 2 THEN CatchNest[son3]; 

END; 
stop *> CatchNest[sonl]; 
wait ■> 

BEGIN 

sonl <- P4Defs.Exp[sonl, none]; P4Def s .VPop[]; 

son2 <- P4Defs.Exp[son2, none]; P4Defs.VPop[]; 

IF nsons > 2 THEN CatchNest[son3]; 

END; 
notify, broadcast, unlock «> 

BEGIN sonl <- P4Def s .Exp[sonl, none]; P4Defs .VPop[] END; 
syserror -> NULL; 
openstmt a > 

BEGIN 

sonl «- updatelist[sonl, Openltem]; 

son2 «- updatelist[son2, Stmt]; 

END; 
enable => Enable[node]; 
resume e > 

sonl «- P4Defs.MakeArgRecord[passPtr.resumeRecord, sonl]; 
continue, retry => NULL; 
catchmark -> sonl <- Stmt[sonl]; 
dst, 1st, Istf => 

BEGIN 

sonl +- P4Def s.Exp[sonl, none]; 

IF P4Defs.WordsForType[P4Defs.OperandType[sonl]] § 
SIZE[Contro!Defs.StateVector] 
THEN ErrorDef s .errortree[sizeClash, sonl]; 

P4Defs.VPop[]; 

END; 
item «> son2 <- Stmt[son2]; 
list ■> val <- updatelist[stmt, Stmt]; 
ENDCASE => ErrorDefs.error[unimplemented]; 
END; 
END; 
ENDCASE => ERROR; 
dataPtr .textlndex ♦- savelndex; RETURN 
END; 



-- extraction 

Extract: PROCEDURE [node: Treelndex] « 
BEGIN OPEN (tb+node); 

Assignltem: TreeMap * 
BEGIN 

type: CSEIndex; 

saveType: CSEIndex ■ passPtr. implicitType; 
saveBias: INTEGER ■ passPtr . impl icitBias; 
saveRep: Repr - passPtr. impl icitRep; 
IF t - empty 
THEN v «- empty 
ELSE 

BEGIN type <- UnderType[(seb+sei) . idtype]; 

passPtr . impl icitType «- type; 

passPtr. implicitBias ♦- P4Defs.BiasForType[type]; 

passPtr . implicitRep ♦- P4Def s.RepForType[type]; 

v <- P4Defs.Assignment[GetNode[t]]; P4Defs.VPop[]; 

END; 
sei «- NextSe[sei]; 

passPtr . imp! icitRep «- saveRep; passPtr . implicitBias *- saveBias; 
passPtr . implicitType «- saveType; RETURN 
END; 
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subNode: Treelndex ■ GetNode[sonl]; 

rType: recordCSEIndex ■ (tb+subNode) . info; 

sei: ISEIndex; 

(seb+rType) .lengthUsed <- TRUE; 

sei *- f irstvisiblese[(seb+rType) .f ieldctx]; 

sonl *- update! ist[sonl , Assignltem]; 

son2 «- P4Defs.Exp[son2, none]; P4Def s ,VPop[] ; 

RETURN 

END; 

-- conditionals 

If Stmt: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
sonl <- P4Defs.NeutralExp[sonl]; 
son2 «- Stmt[son2]; son3 <- Stmt[son3]; 
IF ~P4Def s .TreeLiteral [sonl] 

THEN val <- TreeLink[subtree[index: node]] 
ELSE 
BEGIN 
IF sonl # passPtr.tFALSE 

THEN BEGIN val ♦■ son2; son2 «- empty END 
ELSE BEGIN val «- son3; son3 *- empty END; 
f reenode[node]; 
END; 
RETURN 
END; 

BindStmt: TreeMap 3 
BEGIN 

RETURN [CaseDriver[GetNode[t], Stmt]] 
END; 

-- drivers for processing selections 

Binding: PUBLIC PROCEDURE [node: Treelndex, op: NodeName, eval : TreeMap] 
RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
subNode: Treelndex; 
mlpush[son2]; son2 ♦- empty; 
mlpush[son3]; son3 <- empty; 
mlpush[son4] ; son4 <- empty; 
mlpush[0penltem[sonl]]; sonl *• empty; 
pushtree[op t 4]; setinfo[info]; setattr[l, FALSE]; 
val <- eval[mlpop[]]; subNode «- GetNode[val]; 
(tb+subNode) .son4 «- CloseItem[(tb+subNode) .son4]; 
freenode[node]; RETURN 
END; 



CaseDriver: PUBLIC PROCEDURE [node: Treelndex, selection: TreeMap] 
RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 

type: CSEIndex = P4Def s .OperandType[sonl]; 
sonl «- P4Def s .Exp[sonl, none]; 

IF type * dataPtr. typeBOOLEAN AND attrl AND P4Def s.Treelliteral[sonl] 
THEN 
BEGIN 

Caseltem: TreeScan ■ 
BEGIN 

subNode: Treelndex ■ GetNode[t]; 
started: BOOLEAN; 

PushTest: TreeScan ■ 
BEGIN 

tNode: Treelndex ■ GetNode[t]; 

mlpush[(tb+tNode).son2]; ( tb+tNode) .son2 «- empty; 
IF sonl « passPtr.tFALSE THEN pushtree[not, 1]; 
IF started THEN pushtree[or , 2]; 
started <- TRUE; RETURN 
END; 
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mlpush[(tb+subNode) .son2]; (tb+subNode) .son2 <- empty; 

started «- FALSE; scan! ist[(tb+subNode) .sonl , PushTest]; 

IF selection ■ Stmt 

THEN BEGIN pushtree[if stmt , -3]; setinfo[(tb+subNode) . info] END 
ELSE BEGIN pushtree[if exp , -3]; setinfo[(tb+node) . inf o] END; 

RETURN 

END; 

sonl <- P4Defs.AdjustBias[sonl, -P4Defs.VBias[]]; P4Defs.VPop[] ; 
m1push[son3]; son3 <- empty; 
reversescanl ist[son2, Caseltem]; 
f reenode[node]; 
val «- selection[mlpop[]]; 
END 
ELSE 
BEGIN 

nSons: CARDINAL « 1 istlength[son2]; 
i, first, last, copied, newSons: CARDINAL; 
min, max: INTEGER; 
rep: P4Defs.Repr; 
subNode: Treelndex; 
switchable, copying: 
multiword: BOOLEAN ■ 
count: CARDINAL; 



BOOLEAN; 
P4Defs.WordsForType[type] # 1; 



SwitchValue: TreeMap ■ 
BEGIN 

val: INTEGER; 

tNode: Treelndex ■ GetNode[t]; 
(tb+tNode).son2 <- 

P4Defs.RValue[(tb+tNode).son2, passPtr . imp! icitBias, rep]; 
P4Defs.VPop[]; 

val <- P4Defs.TreeLiteralValue[(tb+tNode).son2]; 
IF count = 

THEN BEGIN first «- i ; min <- max <- val END 
ELSE 
BEGIN 

IF P4Defs.Compare[val , min, rep] < THEN min «- val; 
IF P4Defs.Compare[val , max, rep] > THEN max <- val; 
END; 
count «- count + 1; 
RETURN [t] 
END; 



p, q: POINTER [0 . . TableDef s .TableLimit) TO RECORD [soni: TreeLink]; 
saveType: CSEIndex « passPtr . impl ici tType; 
saveBias: INTEGER « passPtr . impl icitBias; 
saveRep: Repr = passPtr. impl icitRep; 

passPtr . impl icitType «- type; passPtr. impl icitBias «- P4Def s.VBias[]; 
passPtr. impl icitRep <- rep <- P4Def s.VRep[]; P4Defs.VPop[]; 
newSons *- nSons; 

i <- 1; copying <- FALSE; copied <- 0; 
p <- q «- L00PH0LE[GetNode[son2] + TreeNodeSize]; 
UNTIL i > nSons 
DO 
WHILE i <= nSons 

DO 

subNode «- GetNode[(tb+p).soni]; 

IF (tb+subNode). attrl AND -multiword THEN EXIT; 

(tb+subNode) .sonl «- update! ist[( tb+subNode) .sonl, P4Defs .NeutralExp]; 

(tb+subNode) .son2 <- selection[(tb+subNode) .son2]; 

i «- i + 1; p 4- p+1; 



ENDLOOP; 
switchable «- FALSE; 
WHILE i < 



count «- 0; 
nSons 

DO -- N.B. implicitbias is never changed by this loop 
subNode <- GetNode[(tb+p) .soni]; 
IF ~(tb+subNode). attrl OR multiword THEN EXIT; 
(tb+subNode) .sonl «- updatel ist[(tb+subNode) .sonl , SwitchValue]; 
(tb+subNode) .son2 <- selection[( tb+subNode) ,son2]; 
switchable «- TRUE; last <- i; 
i <- i + 1; p <- p+1; 
ENDLOOP; 
IF switchable AND SwitchWorthy[count , max~min] 
THEN 
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BEGIN copying <- TRUE; 
THROUGH (copied . . first) 

DO mlpush[(tb+q).soni]; q 4- q+1 ENDLOOP; 
mlpush[P4Def s.AdjustBias[empty, min]]; 
mlpush[P4Defs.MakeTreeLiteral[max-min+l]]; 
THROUGH [first .. last] 

DO mlpush[SwitchTree[(tb+q).soni , min]]; q <- q+1 ENDLOOP; 
push proper! ist[last-f irst+1]; 
mlpush[maketree[caseswitch, 3]]; 
copied <- last; newSons «- newSons - (last-first); 
END; 
ENDLOOP; 
IF copying 
THEN 
BEGIN 

THROUGH (copied .. nSons] DO mlpush[(tb+q) .soni] ; q <- q+1 ENDLOOP; 
pushproperlist[newSons]; son2 *• mlpop[]; 
END; 
son3 «- selection[son3]; 
val «- TreeLink[subtree[index: node]]; 

passPtr. imp! icitRep <- saveRep; passPtr. impl icitBias «- saveBias; 
passPtr . imp! icitType <- saveType; 
END; 
RETURN 
END; 

-- auxiliary routines for CaseDriver 

SwitchWorthy: PROCEDURE [entries, delta: CARDINAL] RETURNS [BOOLEAN] - 
-- the decision function for using a switch 
BEGIN RETURN [delta < 77777B AND delta+6 < Gentries] 
END; 

SwitchTree: PROCEDURE [t: TreeLink, offset: INTEGER] RETURNS [TreeLink] ■ 
BEGIN 

node: Treelndex a GetNode[t]; 
count: CARDINAL; 

PushSwitchEntry: TreeScan « 
BEGIN 

subNode: Treelndex = GetNode[t]; 
count <- count+1; 
mlpush[P4Defs .MakeTreeLiteral[ 

P4Defs.TreeLiteralValue[(tb+subNode) .son2]-off set]]; 
RETURN 
END; 

count <- 0; scanl ist[( tb+node) . sonl, PushSwitchEntry]; 

pushlist[count]; ml push[( tb+node) .son2]; 

(tb+node) .son2 ♦■ empty; f reenode[node]; 

RETURN [maketree[casetest, 2]] 

END; 

-- iterative statements 

DoStmt: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
subNode: Treelndex; 
delete: BOOLEAN <- FALSE; 
IF sonl # empty 
THEN 

BEGIN subNode <- GetNode[sonl]; 
BEGIN -- process a for-clause 
OPEN (tb+subNode); 
idBias: INTEGER; 
idRep, target: Repr; 
idType: CSEIndex; 

EvalSeqltem: TreeMap - 
BEGIN 

v <- P4Defs.RValue[t, idBias, target]; P4Defs .VPop[]; 
IF ~P4Def s.AssignableRanges[idType, P4Defs.0perandType[v]] 

THEN ErrorDefs.errortree[sizeClash, v]; 
RETURN 
END; 
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IF sonl ■ empty 




THEN 




BEGIN 




idBias «- 0; idRep «- P4Defs.both; target «- P4Defs.none; 




idType ♦■ dataPtr . typelNTEGER; 




END 




ELSE 




BEGIN 




sonl «- P4Defs.Exp[sonl, none]; 




idBias <- P4Def s .VBias[] ; idRep «- P4Defs.VRep[]; P4Defs, 


.VPop[]j 


target «- P4Defs.TargetRep[idRep]; 




idType <- P4Def s.OperandType[sonl]; 




END; 




SELECT name FROM 




forseq «> 




BEGIN 




son2 «- EvalSeqItem[son2]; son3 <- EvalSeqItem[son3]; 




END; 




upthru, downthru »> 




BEGIN 




son2 <- P4Defs.Range[t:son2, bias:idBias, repzidRep, target: target 


IP4Defs.EmptyInterval ■> 




BEGIN delete «- TRUE; RESUME END; 




P4Def s.MixedRepresentation «> 




BEGIN 




ErrorDefs.errortree[mixedRepresentation, son2]; 


; RESUME 


END]; 




IF P4Defs.WordsForType[idType] = AND -delete 




THEN ErrorDefs.errortree[sizeClash, sonl]; 




P4Defs.VPop[]; 




END; 




ENDCASE => ERROR; 




END; 




END; 




IF son2 # empty 




THEN 




BEGIN son2 <- P4Def s.Neutra!Exp[son2]; 




SELECT son2 FROM 





passPtr.tTRUE «> son2 «- freetree[son2]; 
passPtr.tFALSE »> delete <- TRUE; 
ENDCASE; 
END; 
son3 «- update! ist[son3, Openltem]; 
son4 <- updatel ist[son4, Stmt]; 
son5 <- updatel ist[son5, Stmt]; 
son6 <- updatel ist[son6, Stmt]; 
son3 «- reverseupdatel ist[son3, Closeltem]; 
IF -delete 
THEN val «- TreeLink[subtree[index: node]] 
ELSE BEGIN f reenode[node] ; val «- empty END; 
RETURN 
END; 



-- basing 

Openltem: TreeMap ■ 
BEGIN 

node: Treelndex = GetNode[t]; 
IF ~testtree[(tb+node).son2 , openexp] 
THEN v «- empty 
ELSE 
BEGIN 

v «- P4Def s.NeutralExp[(tb+node),son2]; (tb+node) .son2 *- empty; 
END; 
f reenode[node]; 
RETURN 
END; 



Closeltem: TreeMap ■ 
BEGIN 

node: Treelndex; 
IF ~testtree[t, openexp] 

THEN v <- t 

ELSE 



Pass4S.mesa 2-Sep-78 12:59:59 Page 9 



BEGIN 

setshared[t, FALSE]; node <- GetNode[t]; 

v <- (tb+node) .sonl; (tb+node) .sonl <- empty; freenode[node]; 

END; 
RETURN 
END; 



-- catch phrases 

Enable: PROCEDURE [node: Treelndex] * 
BEGIN OPEN (tb+node); 

saveCatchBound: CARDINAL ■ catchFrameBound; 
CatchPhrase[sonl]; 
son2 «- Stmt[son2]; 

catchFrameBound <- saveCatchBound; RETURN 
END; 

CatchNest: PUBLIC PROCEDURE [t: TreeLink] ■ 
BEGIN 

saveCatchBound: CARDINAL ■ catchFrameBound; 
IF t # empty THEN CatchPhrase[t]; 
catchFrameBound «- saveCatchBound; RETURN 
END; 

CatchPhrase: PROCEDURE [t: TreeLink] ■ 
BEGIN 

node: Treelndex ■ GetNode[t]; 
saveBase: CARDINAL ■ frameBase; 
saveBound: CARDINAL ■ frameBound; 
frameBound <- catchFrameBound; 
catchFrameBound «- CatchFrameBase + WordLength; 
scan! ist[(tb+node) .sonl, Catchltem]; 
IF (tb+node). nsons > 1 THEN 

BEGIN 

frameBase «- CatchFrameBase; (tb+node) .son2 «- Stmt[(tb+node) .son2]; 

END; 
(tb+node) .info <- (frameBound + (WordLength-l))/WordLength; 
catchFrameBound <- frameBound; 
frameBase <- saveBase; frameBound «- saveBound; 
RETURN 
END; 

Catchltem: TreeScan « 
BEGIN 

node: Treelndex « GetNode[t]; 
type: CSEIndex - (tb+node) . info; 
saveRecord: recordCSEIndex * passPtr .resumeRecord; 

CatchTest: TreeMap ■ 
BEGIN 

m1push[empty]; mlpush[P4Defs.Exp[t, none]]; P4Defs.VPop[]; 
RETURN [maketree[relE, 2]] 
END; 

frameBase «- CatchFrameBase; 

(tb+node) .sonl ♦• update! ist[(tb+node) .sonl, CatchTest]; 
IF type ■ SENull 
THEN passPtr. resumeRecord ♦■ recordCSENull 
ELSE 

WITH (seb+type) SELECT FROM 
transfer ■> 

BEGIN passPtr. resumeRecord <- outrecord; 
frameBase <- frameBase + P4Defs. ArgLength[type]; 
END; 
ENDCASE «> ERROR; 
(tb+node) .son2 <- Stmt[(tb+node) .son2]; 
IF frameBase > ControlDef s.MaxSmanFrameSize*WordLength 

THEN ErrorDef s.errorsei[addressOverf low, dataPtr .seAnon]; 
frameBound <~ MAX[f rameBase, frameBound]; 
passPtr. resumeRecord <- saveRecord; 
RETURN 
END; 



END. 



